'++LotusScript Development Environment:2:5:(Options):0:66

'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Textbox, X As Long, Y As Long, Flags As Long)

'++LotusScript Development Environment:2:5:(Declarations):0:2

'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
	Static Source As TEXTBOX
	Set Source = Bind(Objectname_)
	On Event Click From Source Call Click
End Sub

'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Textbox, X As Long, Y As Long, Flags As Long)
	'Get the URL and title.
	strURL = CurrentDocument.Webster~ Browser.Body.oleWebster.PageURL
	strPageTitle = CurrentDocument.Webster~ Browser.Body.oleWebster.PageTitle
	
	'Bring up the 'Save Web Site' form.
	Set CurrentApplication.ActiveView = CurrentDocument.Save~ Web~ Site
End Sub